perm filename ZZ.F4[XX,LCS] blob sn#194624 filedate 1975-12-30 generic text, type T, neo UTF8
00100	1	FORMAT(F)
00200		A=(2./72.)**22.0
00250		A=A*1000.
00300		TYPE 1,A
00400		A=(1./72.)**22.0
00450		A=A*1000.
00500		TYPE 1,A
00600		END